(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 12.1' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     18889,        462]
NotebookOptionsPosition[     16787,        417]
NotebookOutlinePosition[     17210,        434]
CellTagsIndexPosition[     17167,        431]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"a1", "=", 
  RowBox[{"{", 
   RowBox[{"a", ",", "1", ",", "1"}], "}"}]}]], "Input",
 CellChangeTimes->{{3.804401201216498*^9, 3.804401212623076*^9}},
 CellLabel->"In[1]:=",ExpressionUUID->"ca33e7ca-9dd1-41d5-87b3-d2adfc70b144"],

Cell[BoxData[
 FormBox[
  RowBox[{"{", 
   RowBox[{"a", ",", "1", ",", "1"}], "}"}], TraditionalForm]], "Output",
 CellChangeTimes->{3.80440122587556*^9},
 CellLabel->"Out[1]=",ExpressionUUID->"055c78ba-ffe9-46d0-9c6b-16bc985edb87"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"a2", "=", 
  RowBox[{"{", 
   RowBox[{"1", ",", "a", ",", 
    RowBox[{"-", "1"}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.804401214197535*^9, 3.8044012172821836`*^9}},
 CellLabel->"In[2]:=",ExpressionUUID->"833c1d9b-124c-4960-9751-b65986d54ee6"],

Cell[BoxData[
 FormBox[
  RowBox[{"{", 
   RowBox[{"1", ",", "a", ",", 
    RowBox[{"-", "1"}]}], "}"}], TraditionalForm]], "Output",
 CellChangeTimes->{3.8044012260106573`*^9},
 CellLabel->"Out[2]=",ExpressionUUID->"c30c5a3c-3f54-443b-bced-2b8a5c0c08f6"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"a3", "=", 
  RowBox[{"{", 
   RowBox[{"1", ",", 
    RowBox[{"-", "1"}], ",", "a"}], "}"}]}]], "Input",
 CellChangeTimes->{{3.804401218371791*^9, 3.804401222350184*^9}},
 CellLabel->"In[3]:=",ExpressionUUID->"8d811dbf-ee08-4d3f-8734-b8a374e1c5dc"],

Cell[BoxData[
 FormBox[
  RowBox[{"{", 
   RowBox[{"1", ",", 
    RowBox[{"-", "1"}], ",", "a"}], "}"}], TraditionalForm]], "Output",
 CellChangeTimes->{3.804401226025193*^9},
 CellLabel->"Out[3]=",ExpressionUUID->"a3be9edb-7da4-494c-bfbe-53f1f6b616ea"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Det", "[", 
     RowBox[{"{", 
      RowBox[{"a1", ",", "a2", ",", "a3"}], "}"}], "]"}], "\[Equal]", "0"}], 
   ",", "a"}], "]"}]], "Input",
 CellChangeTimes->{{3.804401223238924*^9, 3.804401239418041*^9}},
 CellLabel->"In[4]:=",ExpressionUUID->"bb68d4c2-523d-4bf4-9866-3808290aa037"],

Cell[BoxData[
 FormBox[
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"a", "\[Rule]", 
      RowBox[{"-", "1"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"a", "\[Rule]", 
      RowBox[{"-", "1"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"a", "\[Rule]", "2"}], "}"}]}], "}"}], 
  TraditionalForm]], "Output",
 CellChangeTimes->{3.8044012397782927`*^9},
 CellLabel->"Out[4]=",ExpressionUUID->"387d2371-0b65-4130-a890-23c9a979ed4a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"16", "*", "5", "*", 
  SuperscriptBox["2", "2"], "*", 
  RowBox[{"256", "/", "64"}]}]], "Input",
 CellChangeTimes->{{3.804411042151195*^9, 3.8044110426922617`*^9}, {
  3.8044110854738693`*^9, 3.804411086404299*^9}, {3.8044111572089*^9, 
  3.8044111915532417`*^9}, {3.804412354667109*^9, 3.804412386291259*^9}},
 CellLabel->"In[8]:=",ExpressionUUID->"169eb7f2-81d8-4ed3-80b2-0f9e215ce3d5"],

Cell[BoxData[
 FormBox["1280", TraditionalForm]], "Output",
 CellChangeTimes->{3.804411192151535*^9, 3.8044123554536133`*^9, 
  3.8044123866513557`*^9},
 CellLabel->"Out[8]=",ExpressionUUID->"297631ca-a93f-4be0-bbfd-12519f6393ea"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"16", "*", "5", "*", 
  SuperscriptBox["2", "2"], "*", 
  RowBox[{"256", "/", "32"}]}]], "Input",
 CellChangeTimes->{{3.804411236181951*^9, 3.804411236393703*^9}, {
  3.8044123894172297`*^9, 3.804412393430649*^9}},
 CellLabel->"In[9]:=",ExpressionUUID->"46a09031-fe9a-4527-8cee-71ce8fd956c2"],

Cell[BoxData[
 FormBox["2560", TraditionalForm]], "Output",
 CellChangeTimes->{3.8044112366531963`*^9, 3.804412393684866*^9},
 CellLabel->"Out[9]=",ExpressionUUID->"7ece4dd5-215c-4e89-8869-a3a9d6560740"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"G2Cntrl", "=", 
   RowBox[{"{", 
    RowBox[{
    "0.4832160089325977", ",", "0.29636472708419986", ",", 
     "0.1794514876428185", ",", "0.1104874898845114", ",", 
     "0.06973274786446254", ",", "0.04495929031623073", ",", 
     "0.028061357596802526", ",", "0.016442574153926713", ",", 
     "0.01159828830845827", ",", "0.009241547548012333", ",", 
     "0.014354684635895634", ",", "0.009241547548012336", ",", 
     "0.011598288308458264", ",", "0.016442574153926717", ",", 
     "0.028061357596802526", ",", "0.044959290316230714", ",", 
     "0.06973274786446254", ",", "0.11048748988451139", ",", 
     "0.1794514876428185", ",", "0.2963647270841999"}], "}"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.8044030342320013`*^9, 3.8044030381423397`*^9}, {
  3.804421874349865*^9, 3.8044218932260647`*^9}, {3.804427206633388*^9, 
  3.804427207415608*^9}, {3.804427752439631*^9, 3.804427777400023*^9}},
 CellLabel->"In[27]:=",ExpressionUUID->"16bfccbe-2a6f-4bc2-94c2-559d9a469406"],

Cell[BoxData[
 RowBox[{
  RowBox[{"G2Err", "=", 
   RowBox[{"{", 
    RowBox[{
    "0.2275956348310742", ",", "0.20915001796658306", ",", 
     "0.18752044837486503", ",", "0.17558399641514955", ",", 
     "0.17140220528309108", ",", "0.17250830123280295", ",", 
     "0.1734135507272368", ",", "0.17744729660296626", ",", 
     "0.19102446395885428", ",", "0.21250243924377196", ",", 
     "0.23005081109841852", ",", "0.21250243924377196", ",", 
     "0.19102446395885428", ",", "0.17744729660296626", ",", 
     "0.1734135507272368", ",", "0.17250830123280295", ",", 
     "0.17140220528309108", ",", "0.17558399641514955", ",", 
     "0.18752044837486503", ",", "0.20915001796658303"}], "}"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.804427178193507*^9, 3.8044271869836597`*^9}, {
  3.80442725517877*^9, 3.804427257606244*^9}, {3.804427766020685*^9, 
  3.804427768505273*^9}},
 CellLabel->"In[28]:=",ExpressionUUID->"6566264f-bff0-4bd6-8e05-0bd0639165fb"],

Cell[BoxData[
 RowBox[{
  RowBox[{"G2", "=", 
   RowBox[{"MapThread", "[", 
    RowBox[{"Around", ",", 
     RowBox[{"{", 
      RowBox[{"G2Cntrl", ",", "G2Err"}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.804427261502174*^9, 3.804427276456934*^9}},
 CellLabel->"In[29]:=",ExpressionUUID->"262174cd-6324-4cec-94e1-bc94233ef9b4"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"-", "2"}], 
   RowBox[{
    RowBox[{"Log", "[", 
     FractionBox[
      RowBox[{"G2", "\[LeftDoubleBracket]", 
       RowBox[{"2", ";;", 
        RowBox[{"-", "1"}]}], "\[RightDoubleBracket]"}], 
      RowBox[{"G2", "\[LeftDoubleBracket]", 
       RowBox[{"1", ";;", 
        RowBox[{"-", "2"}]}], "\[RightDoubleBracket]"}]], "]"}], 
    "\[LeftDoubleBracket]", 
    RowBox[{"1", ";;", "8"}], "\[RightDoubleBracket]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.804421897224063*^9, 3.804421937637102*^9}, {
   3.8044219995815287`*^9, 3.8044220186975203`*^9}, 3.804427198958626*^9, 
   3.804427282750929*^9},
 CellLabel->"In[23]:=",ExpressionUUID->"55256dff-e3f2-476f-95d3-4cb9fe53a81d"],

Cell[BoxData[
 FormBox[
  GraphicsBox[{{{
      {RGBColor[0.368417, 0.506779, 0.709798], 
       StyleBox[{{}, {
          LineBox[{{1., 0.2948602860791687}, {1., 0.994635438164583}}], 
          LineBox[{{1., 0.994635438164583}, {1., 1.6944105902499973`}}]}},
        Antialiasing->False]}, 
      {RGBColor[0.368417, 0.506779, 0.709798], 
       StyleBox[{{}, {
          LineBox[{{2., -0.17831146692509725`}, {2., 0.9565145743190929}}], 
          LineBox[{{2., 0.9565145743190929}, {2., 2.091340615563283}}]}},
        Antialiasing->False]}, 
      {RGBColor[0.368417, 0.506779, 0.709798], 
       StyleBox[{{}, {
          LineBox[{{3., -0.8900299986874427}, {3., 0.9112119322442189}}], 
          LineBox[{{3., 0.9112119322442189}, {3., 2.7124538631758806`}}]}},
        Antialiasing->False]}, 
      {RGBColor[0.368417, 0.506779, 0.709798], 
       StyleBox[{{}, {
          LineBox[{{4., -1.9294512235883208`}, {4., 0.8872385110752019}}], 
          LineBox[{{4., 0.8872385110752019}, {4., 3.703928245738725}}]}},
        Antialiasing->False]}, 
      {RGBColor[0.368417, 0.506779, 0.709798], 
       StyleBox[{{}, {
          LineBox[{{5., -3.5517549799966353`}, {5., 0.9704108944302433}}], 
          LineBox[{{5., 0.9704108944302433}, {5., 5.492576768857122}}]}},
        Antialiasing->False]}, 
      {RGBColor[0.368417, 0.506779, 0.709798], 
       StyleBox[{{}, {
          LineBox[{{6., -6.530826090740403}, {6., 1.059434016466747}}], 
          LineBox[{{6., 1.059434016466747}, {6., 8.649694123673896}}]}},
        Antialiasing->False]}, 
      {RGBColor[0.368417, 0.506779, 0.709798], 
       StyleBox[{{}, {
          LineBox[{{7., -12.770039915905473`}, {7., 1.2859545165132868`}}], 
          LineBox[{{7., 1.2859545165132868`}, {7., 15.341948948932048`}}]}},
        Antialiasing->False]}, 
      {RGBColor[0.368417, 0.506779, 0.709798], 
       StyleBox[{{}, {
          LineBox[{{8., -38.90781782366714}, {8., 2.2995882471210916`}}], 
          LineBox[{{8., 2.2995882471210916`}, {8., 43.506994317909324`}}]}},
        Antialiasing->False]}}, {
      {RGBColor[0.368417, 0.506779, 0.709798], 
       StyleBox[{
         GeometricTransformationBox[
          LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], 
         GeometricTransformationBox[
          LineBox[{{{1., 1.6944105902499973`}, 
             Offset[{3, 0}, {1., 1.6944105902499973`}]}, {{1., 
             1.6944105902499973`}, 
             Offset[{-3, 0}, {1., 1.6944105902499973`}]}, {{1., 
             0.2948602860791687}, 
             Offset[{3, 0}, {1., 0.2948602860791687}]}, {{1., 
             0.2948602860791687}, 
             Offset[{-3, 0}, {1., 0.2948602860791687}]}}], {{{1., 0.}, {0., 
           1.}}, {0., 0.}}]},
        Antialiasing->False]}, 
      {RGBColor[0.368417, 0.506779, 0.709798], 
       StyleBox[{
         GeometricTransformationBox[
          LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], 
         GeometricTransformationBox[
          LineBox[{{{2., 2.091340615563283}, 
             Offset[{3, 0}, {2., 2.091340615563283}]}, {{2., 
             2.091340615563283}, Offset[{-3, 0}, {2., 2.091340615563283}]}, {{
             2., -0.17831146692509725`}, 
             Offset[{3, 0}, {2., -0.17831146692509725`}]}, {{
             2., -0.17831146692509725`}, 
             Offset[{-3, 0}, {2., -0.17831146692509725`}]}}], {{{1., 0.}, {0.,
            1.}}, {0., 0.}}]},
        Antialiasing->False]}, 
      {RGBColor[0.368417, 0.506779, 0.709798], 
       StyleBox[{
         GeometricTransformationBox[
          LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], 
         GeometricTransformationBox[
          LineBox[{{{3., 2.7124538631758806`}, 
             Offset[{3, 0}, {3., 2.7124538631758806`}]}, {{3., 
             2.7124538631758806`}, 
             Offset[{-3, 0}, {3., 2.7124538631758806`}]}, {{
             3., -0.8900299986874427}, 
             Offset[{3, 0}, {3., -0.8900299986874427}]}, {{
             3., -0.8900299986874427}, 
             Offset[{-3, 0}, {3., -0.8900299986874427}]}}], {{{1., 0.}, {0., 
           1.}}, {0., 0.}}]},
        Antialiasing->False]}, 
      {RGBColor[0.368417, 0.506779, 0.709798], 
       StyleBox[{
         GeometricTransformationBox[
          LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], 
         GeometricTransformationBox[
          LineBox[{{{4., 3.703928245738725}, 
             Offset[{3, 0}, {4., 3.703928245738725}]}, {{4., 
             3.703928245738725}, Offset[{-3, 0}, {4., 3.703928245738725}]}, {{
             4., -1.9294512235883208`}, 
             Offset[{3, 0}, {4., -1.9294512235883208`}]}, {{
             4., -1.9294512235883208`}, 
             Offset[{-3, 0}, {4., -1.9294512235883208`}]}}], {{{1., 0.}, {0., 
           1.}}, {0., 0.}}]},
        Antialiasing->False]}, 
      {RGBColor[0.368417, 0.506779, 0.709798], 
       StyleBox[{
         GeometricTransformationBox[
          LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], 
         GeometricTransformationBox[
          LineBox[{{{5., 5.492576768857122}, 
             Offset[{3, 0}, {5., 5.492576768857122}]}, {{5., 
             5.492576768857122}, Offset[{-3, 0}, {5., 5.492576768857122}]}, {{
             5., -3.5517549799966353`}, 
             Offset[{3, 0}, {5., -3.5517549799966353`}]}, {{
             5., -3.5517549799966353`}, 
             Offset[{-3, 0}, {5., -3.5517549799966353`}]}}], {{{1., 0.}, {0., 
           1.}}, {0., 0.}}]},
        Antialiasing->False]}, 
      {RGBColor[0.368417, 0.506779, 0.709798], 
       StyleBox[{
         GeometricTransformationBox[
          LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], 
         GeometricTransformationBox[
          LineBox[{{{6., 8.649694123673896}, 
             Offset[{3, 0}, {6., 8.649694123673896}]}, {{6., 
             8.649694123673896}, Offset[{-3, 0}, {6., 8.649694123673896}]}, {{
             6., -6.530826090740403}, 
             Offset[{3, 0}, {6., -6.530826090740403}]}, {{
             6., -6.530826090740403}, 
             Offset[{-3, 0}, {6., -6.530826090740403}]}}], {{{1., 0.}, {0., 
           1.}}, {0., 0.}}]},
        Antialiasing->False]}, 
      {RGBColor[0.368417, 0.506779, 0.709798], 
       StyleBox[{
         GeometricTransformationBox[
          LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], 
         GeometricTransformationBox[
          LineBox[{{{7., 15.341948948932048`}, 
             Offset[{3, 0}, {7., 15.341948948932048`}]}, {{7., 
             15.341948948932048`}, 
             Offset[{-3, 0}, {7., 15.341948948932048`}]}, {{
             7., -12.770039915905473`}, 
             Offset[{3, 0}, {7., -12.770039915905473`}]}, {{
             7., -12.770039915905473`}, 
             Offset[{-3, 0}, {7., -12.770039915905473`}]}}], {{{1., 0.}, {0., 
           1.}}, {0., 0.}}]},
        Antialiasing->False]}, 
      {RGBColor[0.368417, 0.506779, 0.709798], 
       StyleBox[{
         GeometricTransformationBox[
          LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], 
         GeometricTransformationBox[
          LineBox[{{{8., 43.506994317909324`}, 
             Offset[{3, 0}, {8., 43.506994317909324`}]}, {{8., 
             43.506994317909324`}, 
             Offset[{-3, 0}, {8., 43.506994317909324`}]}, {{
             8., -38.90781782366714}, 
             Offset[{3, 0}, {8., -38.90781782366714}]}, {{
             8., -38.90781782366714}, 
             Offset[{-3, 0}, {8., -38.90781782366714}]}}], {{{1., 0.}, {0., 
           1.}}, {0., 0.}}]},
        Antialiasing->False]}}}, {
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
      0.012833333333333334`], AbsoluteThickness[1.6], 
      PointBox[{{1., 0.994635438164583}, {2., 0.9565145743190929}, {3., 
       0.9112119322442189}, {4., 0.8872385110752019}, {5., 
       0.9704108944302433}, {6., 1.059434016466747}, {7., 
       1.2859545165132868`}, {8., 2.2995882471210916`}}]}, {
      {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
       0.012833333333333334`], AbsoluteThickness[1.6]}, {}}, {
      {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
       0.012833333333333334`], AbsoluteThickness[1.6]}, {}}}, {{}, {}}},
   AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
   Axes->{True, True},
   AxesLabel->{None, None},
   AxesOrigin->{0., 0},
   DisplayFunction->Identity,
   Frame->{{False, False}, {False, False}},
   FrameLabel->{{None, None}, {None, None}},
   FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
   GridLines->{None, None},
   GridLinesStyle->Directive[
     GrayLevel[0.5, 0.4]],
   Method->{
    "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
     "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
         Identity[
          Part[#, 1]], 
         Identity[
          Part[#, 2]]}& ), "CopiedValueFunction" -> ({
         Identity[
          Part[#, 1]], 
         Identity[
          Part[#, 2]]}& )}},
   PlotRange->{{0., 8.}, {-1.2312860929936325`, 4.418112851189926}},
   PlotRangeClipping->True,
   PlotRangePadding->{{
      Scaled[0.02], 
      Scaled[0.02]}, {
      Scaled[0.05], 
      Scaled[0.05]}},
   Ticks->{Automatic, Automatic}], TraditionalForm]], "Output",
 CellChangeTimes->{{3.804421905132502*^9, 3.804421938204362*^9}, {
   3.804422002298375*^9, 3.804422019056988*^9}, 3.804427283553344*^9},
 CellLabel->"Out[23]=",ExpressionUUID->"c313787d-5adb-49ef-b4e2-d5297311314c"]
}, Open  ]]
},
WindowSize->{1449, 911},
WindowMargins->{{946, Automatic}, {Automatic, 336}},
Magnification:>2. Inherited,
FrontEndVersion->"12.1 for Linux x86 (64-bit) (March 14, 2020)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"b50839d4-1fa2-4625-a3a1-e70cd0e5287e"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 251, 5, 60, "Input",ExpressionUUID->"ca33e7ca-9dd1-41d5-87b3-d2adfc70b144"],
Cell[834, 29, 232, 5, 65, "Output",ExpressionUUID->"055c78ba-ffe9-46d0-9c6b-16bc985edb87"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1103, 39, 273, 6, 60, "Input",ExpressionUUID->"833c1d9b-124c-4960-9751-b65986d54ee6"],
Cell[1379, 47, 255, 6, 65, "Output",ExpressionUUID->"c30c5a3c-3f54-443b-bced-2b8a5c0c08f6"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1671, 58, 271, 6, 60, "Input",ExpressionUUID->"8d811dbf-ee08-4d3f-8734-b8a374e1c5dc"],
Cell[1945, 66, 253, 6, 65, "Output",ExpressionUUID->"a3be9edb-7da4-494c-bfbe-53f1f6b616ea"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2235, 77, 358, 9, 60, "Input",ExpressionUUID->"bb68d4c2-523d-4bf4-9866-3808290aa037"],
Cell[2596, 88, 453, 14, 65, "Output",ExpressionUUID->"387d2371-0b65-4130-a890-23c9a979ed4a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3086, 107, 412, 7, 60, "Input",ExpressionUUID->"169eb7f2-81d8-4ed3-80b2-0f9e215ce3d5"],
Cell[3501, 116, 230, 4, 65, "Output",ExpressionUUID->"297631ca-a93f-4be0-bbfd-12519f6393ea"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3768, 125, 315, 6, 60, "Input",ExpressionUUID->"46a09031-fe9a-4527-8cee-71ce8fd956c2"],
Cell[4086, 133, 203, 3, 65, "Output",ExpressionUUID->"7ece4dd5-215c-4e89-8869-a3a9d6560740"]
}, Open  ]],
Cell[4304, 139, 1023, 19, 319, "Input",ExpressionUUID->"16bfccbe-2a6f-4bc2-94c2-559d9a469406"],
Cell[5330, 160, 963, 19, 319, "Input",ExpressionUUID->"6566264f-bff0-4bd6-8e05-0bd0639165fb"],
Cell[6296, 181, 343, 8, 60, "Input",ExpressionUUID->"262174cd-6324-4cec-94e1-bc94233ef9b4"],
Cell[CellGroupData[{
Cell[6664, 193, 750, 18, 94, "Input",ExpressionUUID->"55256dff-e3f2-476f-95d3-4cb9fe53a81d"],
Cell[7417, 213, 9354, 201, 499, "Output",ExpressionUUID->"c313787d-5adb-49ef-b4e2-d5297311314c"]
}, Open  ]]
}
]
*)

